home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlqry.exe / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-12-31  |  17.2 KB  |  353 lines
  1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GLOBAL.BAS - Global ~~~~~~~~~~~~~~~~~~~~~~~
  2. Rem Global declarations for Thunder to DB-Library translation dll.
  3. Global ApplicationName As String
  4. Global Master_Name As String
  5. Global Detail_Name As String
  6. Global M_Update_Items As String
  7. Global D_Update_Items As String
  8. Global Master_FieldCount As Integer
  9. Global Detail_FieldCount As Integer
  10. Global Master_Select As String
  11. Global Detail_Select As String
  12. Global Master_Where As String
  13. Global Detail_Where As String
  14. Global Master_OrderBy As String
  15. Global Detail_OrderBy As String
  16. Global M_TableData() As String
  17. Global M_Info() As String
  18. Global D_TableData() As String
  19. Global D_Info() As String
  20. Global TableRows As Integer
  21. Global SqlCommand As String
  22. Global FieldType(250) As String
  23. Global NL As String
  24. Global Master_Rows_Returned As Integer
  25. Global Same_Num_Rows As Integer
  26. Global Dbug As Integer
  27.  
  28. Global FullFilePath As String
  29. Global DataBaseName As String
  30. Global TableName As String
  31.  
  32.  
  33.  
  34. Global WorkstationName As String
  35. Global ServerName As String
  36. Global UserName As String
  37. Global Password As String
  38. Global SqlConn As Integer
  39.  
  40. Global Table_Name As String
  41. Global Valid_User As Integer
  42. Global Near_Ptr As Integer
  43. Global Far_Ptr As Integer
  44.  
  45. Global Const MAXTABLEROWS = 100        'COULD BE USER DEFINED
  46.  
  47. Rem Define TRUE and FALSE
  48. Global Const TRUE% = -1
  49. Global Const FALSE% = 0
  50. Global Const SUCCESS% = 1
  51.  
  52. Rem Define Table Array Column Names - XLAST DEFINES #COLS
  53. Global Const XNAME = 0
  54. Global Const XSIZE = 1
  55. Global Const XTYPE = 2
  56. Global Const XQUOT = 3
  57. Global Const XUPDT = 4
  58. Global Const XPREV = 5
  59. Global Const XINDX = 6
  60. Global Const XHEDR = 7
  61. Global Const XPKEY = 8
  62. Global Const XCLER = 9
  63. Global Const XLAST = 10
  64.  
  65. Rem Used by all apps linking with the WBSQL DLL.
  66.  
  67. Rem Global return values for all RETCODE type functions
  68. Global Const SUCCEED% = 1
  69. Global Const FAIL% = 0
  70.  
  71. Rem return values permitted in error handlers
  72. Global Const INTEXIT% = 0
  73. Global Const INTCONTINUE% = 1
  74. Global Const INTCANCEL% = 2
  75.  
  76. Global Const MOREROWS = -1
  77. Global Const NOMOREROWS = -2
  78. Global Const REGROW = -1
  79. Global Const BUFFULL = -3
  80.  
  81. Rem Status code for dbresults(). Possible return values are
  82. Rem SUCCEED, FAIL, and NO_MORE_RESULTS.
  83.  
  84. Global Const NOMORERESULTS = 2
  85.  
  86.  
  87.  
  88. Rem option values permitted in option setting/querying/clearing
  89. Rem used by SqlSetOpt%(), SqlIsOpt%(), and SqlClrOpt%().
  90.  
  91. Global Const SQLBUFFER% = 0
  92. Global Const SQLROWCOUNT% = 2
  93. Global Const SQLSTAT% = 3
  94. Global Const SQLTEXTLIMIT% = 4
  95. Global Const SQLTEXTSIZE% = 5
  96. Global Const SQLARITHABORT% = 6
  97. Global Const SQLARITHIGNORE% = 7
  98. Global Const SQLNOAUTOFREE% = 8
  99. Global Const SQLNOCOUNT% = 9
  100. Global Const SQLNOEXEC% = 10
  101. Global Const SQLPARSEONLY% = 11
  102. Global Const SQLSHOWPLAN% = 12
  103. Global Const SQLSTORPROCID% = 13
  104.  
  105. Rem Data type token values.  Used for datatype determination for a column.
  106.  
  107. Global Const SQLTEXT% = &H23
  108. Global Const SQLARRAY% = &H24
  109. Global Const SQLVARBINARY% = &H25
  110. Global Const SQLINTN% = &H26
  111. Global Const SQLVARCHAR% = &H27
  112. Global Const SQLBINARY% = &H2D
  113. Global Const SQLIMAGE% = &H22
  114. Global Const SQLCHAR% = &H2F
  115. Global Const SQLINT1% = &H30
  116. Global Const SQLBIT% = &H32
  117. Global Const SQLINT2% = &H34
  118. Global Const SQLINT4% = &H38
  119. Global Const SQLMONEY% = &H3C
  120. Global Const SQLDATETIME% = &H3D
  121. Global Const SQLFLT8% = &H3E
  122. Global Const SQLFLTN% = &H6D
  123. Global Const SQLMONEYN% = &H6E
  124. Global Const SQLDATETIMN% = &H6F
  125. Global Const SQLAOPCNT% = &H4B
  126. Global Const SQLAOPSUM% = &H4D
  127. Global Const SQLAOPAVG% = &H4F
  128. Global Const SQLAOPMIN% = &H51
  129. Global Const SQLAOPMAX% = &H52
  130. Global Const SQLAOPANY% = &H53
  131. Global Const SQLAOPNOOP% = &H56
  132.  
  133.  
  134.  
  135. Rem error numbers BSQL error codes that are passed to local error
  136. Rem handler
  137.  
  138. Global Const SQLEMEM% = 10000
  139. Global Const SQLENULL% = 10001
  140. Global Const SQLENLOG% = 10002
  141. Global Const SQLEPWD% = 10003
  142. Global Const SQLECONN% = 10004
  143. Global Const SQLEDDNE% = 10005
  144. Global Const SQLNULLO% = 10006
  145. Global Const SQLESMSG% = 10007
  146. Global Const SQLEBTOK% = 10008
  147. Global Const SQLENSPE% = 10009
  148. Global Const SQLEREAD% = 10010
  149. Global Const SQLECNOR% = 10011
  150. Global Const SQLETSIT% = 10012
  151. Global Const SQLEPARM% = 10013
  152. Global Const SQLEAUTN% = 10014
  153. Global Const SQLECOFL% = 10015
  154. Global Const SQLERDCN% = 10016
  155. Global Const SQLEICN% = 10017
  156. Global Const SQLECLOS% = 10018
  157. Global Const SQLENTXT% = 10019
  158. Global Const SQLEDNTI% = 10020
  159. Global Const SQLETMTD% = 10021
  160. Global Const SQLEASEC% = 10022
  161. Global Const SQLENTLL% = 10023
  162. Global Const SQLETIME% = 10024
  163. Global Const SQLEWRIT% = 10025
  164. Global Const SQLEMODE% = 10026
  165. Global Const SQLEOOB% = 10027
  166. Global Const SQLEITIM% = 10028
  167. Global Const SQLEDBPS% = 10029
  168. Global Const SQLEIOPT% = 10030
  169. Global Const SQLEASNL% = 10031
  170. Global Const SQLEASUL% = 10032
  171. Global Const SQLENPRM% = 10033
  172. Global Const SQLEDBOP% = 10034
  173. Global Const SQLENSIP% = 10035
  174. Global Const SQLECNULL% = 10036
  175. Global Const SQLESEOF% = 10037
  176. Global Const SQLERPND% = 10038
  177. Global Const SQLECSYN% = 10039
  178. Global Const SQLENONET% = 10040
  179. Global Const SQLEBTYP% = 10041
  180. Global Const SQLEABNC% = 10042
  181. Global Const SQLEABMT% = 10043
  182. Global Const SQLEABNP% = 10044
  183. Global Const SQLEBNCR% = 10045
  184. Global Const SQLEAAMT% = 10046
  185. Global Const SQLENXID% = 10047
  186.  
  187. Rem The severity levels are defined here for error handlers
  188.  
  189. Global Const EXINFO% = 1
  190. Global Const EXUSER% = 2
  191. Global Const EXNONFATAL% = 3
  192. Global Const EXCONVERSION% = 4
  193. Global Const EXSERVER% = 5
  194. Global Const EXTIME% = 6
  195. Global Const EXPROGRAM% = 7
  196. Global Const EXRESOURCE% = 8
  197. Global Const EXCOMM% = 9
  198. Global Const EXFATAL% = 10
  199. Global Const EXCONSISTENCY% = 11
  200.  
  201. Rem Length of text timestamp and text pointer
  202. Global Const SQLTXTSLEN% = 8          ' length of text timestamp
  203. Global Const SQLTXPLEN% = 16          ' length of text pointer
  204.  
  205. Global Const OFF_SELECT% = &H16D
  206. Global Const OFF_FROM% = &H14F
  207. Global Const OFF_ORDER% = &H165
  208. Global Const OFF_COMPUTE% = &H139
  209. Global Const OFF_TABLE% = &H173
  210. Global Const OFF_PROCEDURE% = &H16A
  211. Global Const OFF_STATEMENT% = &H1CB
  212. Global Const OFF_PARAM% = &H1C4
  213. Global Const OFF_EXEC% = &H12C
  214.  
  215. Rem Bulk Copy Definitions (bcp)
  216.  
  217. Global Const DBIN% = 1              ' transfer from client to server
  218. Global Const DBOUT% = 2            ' transfer from server to client
  219.  
  220. Global Const BCPMAXERRS% = 1        ' SqlBcpControl parameter
  221. Global Const BCPFIRST% = 2          ' SqlBcpControl parameter
  222. Global Const BCPLAST% = 3           ' SqlBcpControl parameter
  223. Global Const BCPBATCH% = 4          ' SqlBcpControl parameter
  224.  
  225. Rem User defined data type for SqlGetColumnInfo
  226. Type ColumnData
  227.    ColType As Integer
  228.    ColLen As Long
  229.    ColName As String * 30
  230.    ColSqlType As String * 30
  231. End Type
  232.  
  233. Rem User defined data type for SqlGetAltColInfo
  234. Type AltColumnData
  235.    ColID As Integer
  236.    DataType As Integer
  237.    MaxLen As Long
  238.    AggType As Integer
  239.    AggOpName As String * 30
  240. End Type
  241.  
  242. Rem User defined data type for SqlBcpColumnFormat
  243. Type BcpColData
  244.     FType As Integer
  245.     FPLen As Integer
  246.     fColLen As Long
  247.     FTerm As String * 30
  248.     FTLen As Integer
  249.     TCol As Integer
  250. End Type
  251.  
  252. Rem Function/Sub declarations for Thunder App Global module
  253. Declare Function SqlInit Lib "VBSQL.VBX" () As String
  254. Declare Sub SqlWinExit Lib "VBSQL.VBX" ()
  255. Declare Function SqlLogin Lib "VBSQL.VBX" () As Integer
  256. Declare Function SqlSetLUser Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
  257. Declare Function SqlSetLPwd Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
  258. Declare Function SqlSetLApp Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
  259. Declare Function SqlSetLHost Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
  260. Declare Function SqlOpen Lib "VBSQL.VBX" (ByVal Login As Integer, Server As String) As Integer
  261. Declare Sub SqlClose Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  262. Declare Sub SqlFreeLogin Lib "VBSQL.VBX" (ByVal Login As Integer)
  263. Declare Function SqlCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  264. Declare Function SqlExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  265. Declare Function SqlResults Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  266. Declare Function SqlNextRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  267. Declare Function SqlNumCols Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  268. Declare Function SqlColName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  269. Declare Function SqlColType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  270. Declare Function SqlColLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  271. Declare Function SqlDatLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
  272. Declare Function SQLData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  273. Declare Function SqlDataReady Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  274. Declare Sub SqlExit Lib "VBSQL.VBX" ()
  275. Declare Function SqlSetLoginTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  276. Declare Function SqlSetTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  277. Declare Function SqlSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  278. Declare Function SqlOk Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  279. Declare Function SqlGetChar Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal CharNum As Integer) As String
  280. Declare Function SqlStrCpy Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Start As Integer, ByVal NumBytes As Integer, CmdString As String) As Integer
  281. Declare Function SqlStrLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  282. Declare Function SqlSetOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  283. Declare Function SqlClrOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  284. Declare Function SqlIsOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  285. Declare Sub SqlFreeBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  286. Declare Function SqlCancel Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  287. Declare Function SqlCanQuery Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  288. Declare Function SqlGetRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long) As Integer
  289. Declare Sub SqlClrBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long)
  290. Declare Function SqlColBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  291. Declare Function SqlColSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  292. Declare Function SqlQual Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer, Table_Name As String) As String
  293. Declare Function SqlTabBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As Integer
  294. Declare Function SqlTabCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  295. Declare Function SqlTabName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  296. Declare Function SqlTabSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColNum As Integer, TabNum As Integer) As String
  297. Declare Function SqlTsNewLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  298. Declare Function SqlTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  299. Declare Function SqlTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TsVal As String, ByVal NewTsLen As Integer, ByVal TsLen As Integer, TabName As String) As Integer
  300. Declare Function SqlMoreText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Size As Long, Text As String) As Integer
  301. Declare Function SqlTxPtr Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  302. Declare Function SqlTxTimeStamp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  303. Declare Function SqlTxTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  304. Declare Function SqlTxTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, NewTxTsVal As String, ByVal Column As Integer) As Integer
  305. Declare Function SqlWriteText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, TextPtr As String, ByVal TextPtrLen As Integer, TimeStamp As String, ByVal Logging As Integer, ByVal Size As Long, Text As String) As Integer
  306. Declare Function SqlCmdRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  307. Declare Function SqlCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  308. Declare Function SqlCurCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  309. Declare Function SqlCurRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  310. Declare Function SqlDead Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  311. Declare Function SqlFirstRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  312. Declare Function SqlGetTime Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  313. Declare Function SqlIsAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  314. Declare Function SqlLastRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  315. Declare Function SqlMoreCmds Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  316. Declare Function SqlNumOrders Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  317. Declare Function SqlRows Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  318. Declare Function SqlRowType Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  319. Declare Function SqlNumAlts Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As Integer
  320. Declare Function SqlAltType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  321. Declare Function SqlAltLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  322. Declare Function SqlADLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  323. Declare Function SqlAData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As String
  324. Declare Function SqlAltColId Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  325. Declare Function SqlAltOp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  326. Declare Function SqlByList Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As String
  327. Declare Function SqlNumCompute Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  328. Declare Function SqlUse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, DataBase As String) As Integer
  329. Declare Function SqlGetOff Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal OffType As Integer, ByVal StartFrom As Integer) As Integer
  330. Declare Function SqlOrderCol Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Order As Integer) As Integer
  331. Declare Function SqlChange Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  332. Declare Function SqlGetMaxProcs Lib "VBSQL.VBX" () As Integer
  333. Declare Function SqlName Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  334. Declare Function SqlPrType Lib "VBSQL.VBX" (ByVal Token As Integer) As String
  335. Declare Sub SqlSetAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  336. Declare Function SqlSetMaxProcs Lib "VBSQL.VBX" (ByVal MaxProcs As Integer) As Integer
  337. Declare Function SqlBCPColfmt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal FColumn As Integer, ByVal FType As Integer, ByVal FPLen As Integer, ByVal FCLen As Long, FTerm As String, ByVal FTLen As Integer, ByVal TCol As Integer) As Integer
  338. Declare Function SqlBCPColumns Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColCount As Integer) As Integer
  339. Declare Function SqlBCPControl Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Param As Integer, ByVal Value As Long) As Integer
  340. Declare Function SqlBCPExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RowsCopied As Long) As Integer
  341. Declare Function SqlBCPInit Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TblName As String, HFile As String, ErrFile As String, ByVal Direction As Integer) As Integer
  342. Declare Function SqlBCPSetL Lib "VBSQL.VBX" (ByVal Loginrec As Integer, ByVal Enable As Integer) As Integer
  343. Declare Function SqlBCPDone Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  344. Declare Function SqlSendCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  345. Declare Function SqlGetColumnInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As ColumnData, ByVal Column As Integer) As Integer
  346. Declare Function SqlGetAltColInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, AltCol As AltColumnData, ByVal ComputeId As Integer, ByVal AltColumn As Integer) As Integer
  347. Declare Function SqlOpenConnection Lib "VBSQL.VBX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
  348. Declare Function SqlTextUpdate1Row Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Integer
  349. Declare Function SqlTextUpdateManyRows Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Long
  350. Declare Function SqlBCPColumnFormat Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As BcpColData, ByVal NumCols As Integer) As Integer
  351. Declare Function SqlTsUpdate Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ByVal TabNum As Integer, TabName As String) As Integer
  352.  
  353.